sHelp
                                     PP.PER.COBRA
       2
 main
   comments
   letters

 Ì   €     2
main
[number]
*(JY)JY.CB[jycb]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 number                      42 URN      L                 jycb                                                        
 cov.from.date                8 DATE     L                 *(JY)JY.CB[jycb]|6                                          
 cov.thru.date                8 DATE     L                 *(JY)JY.CB[jycb]|7                                          
 dp.number                    2 PINT     R                 *(JY)JY.CB[jycb]|1                                          
 employee                    42 URN      L  PP.PER         *(JY)JY.CB[jycb]|0                                      
 id                          42 URN      L  PP.PER.COBRA   VAL=%(PP)["PER.COBRA..display.id"](number)              
 monthly.payment              8 MONEY    R                 *(JY)JY.CB[jycb]|8                                          
 name                        26 FREE     L                 VAL=IF{@PP.PER.dp.name[@employee,@dp.number];@PP.PER.n      
                                                           VAL=ame[@employee]}                                         
 qual.code                    8 FREE     L  PP.COBRA       *(JY)JY.CB[jycb]|5                                      
 relationship                30 FREE     L                 VAL=IF{'@dp.number "EMPLOYEE";@MIS.RELAT.name[@PP.PER.      
                                                           VAL=dp.relationship[@employee,@dp.number]]}                 
 ss.number                   12 FREE     L                 VAL=IF{@PP.PER.dp.ss.number[@employee,@dp.number];@PP.      
                                                           VAL=PER.ss.number[@employee]}                               
 status                       8 CHOICE   L                 *(JY)JY.CB[jycb]|2                                          
 status.date                  8 DATE     L                 *(JY)JY.CB[jycb]|3                                          
 status.reason               10 FREE     L  PP.REASON      *(JY)JY.CB[jycb]|4                                      
 Ì   €     2
comments
[number,  comment.line]
*(JY)JY.CB[jycb]C[jycbN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 comment.line                 8 PINT     R                 jycbN                                                       
 comment.text                92 TEXT     L                 *(JY)JY.CB[jycb]C[jycbN]                                    
 Ì   €     2
letters
[number,  letter.q]
*(JY)JY.CB[jycb]L[jycbQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 letter.q                     2 PINT     R                 jycbQ                                                       
 letter                      10 FREE     L  PP.LTR.TEMPLATE*(JY)JY.CB[jycb]L[jycbQ]|0                              
 letter.id                    3 INT      R                 *(JY)JY.CB[jycb]L[jycbQ]|5                                  
 letter.print.date            8 DATE     L                 *(JY)JY.CB[jycb]L[jycbQ]|4                                  
 letter.prt.on.date           8 DATE     L                 *(JY)JY.CB[jycb]L[jycbQ]|3                                  
 letter.status                9 CHOICE   L                 *(JY)JY.CB[jycb]L[jycbQ]|1                                  
 letter.status.date           8 DATE     L                 *(JY)JY.CB[jycb]L[jycbQ]|2